home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / MPW Oberon 2.1168 / OInterfaces / SegLoad.mod < prev    next >
Encoding:
Text File  |  1995-08-10  |  1.7 KB  |  78 lines  |  [TEXT/MPS ]
  1. (*
  2.      File:        SegLoad.mod
  3.  
  4.      Contains:    Segment Loader Interfaces.
  5.  
  6.      Version:    Technology:    System 7.5
  7.                  Package:    Universal Interfaces 2.0 in “MPW Latest” on ETO #17
  8.  
  9.      Copyright:    © 1984-1995 by Apple Computer, Inc.
  10.                  All rights reserved.
  11.  
  12.      Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  13.                  stack.  Include the file and version information (from above)
  14.                  in the problem description and send to:
  15.                      Internet:    apple.bugs.applelink.apple.com
  16.                      AppleLink:    APPLE.BUGS
  17.  
  18. *)
  19.  
  20. (*$TAGS-*)
  21. (*$CALLING PASCAL*)
  22. MODULE SegLoad;
  23.  
  24. IMPORT SYSTEM, Types;
  25.  
  26. (* $PUSH*)
  27. (* $ALIGN MAC68K*)
  28. (* $LibExport+*)
  29.  
  30. CONST
  31.     appOpen*                        = 0;                            (*Open the Document (s)*)
  32.     appPrint*                    = 1;                            (*Print the Document (s)*)
  33.  
  34.  
  35. TYPE
  36.     AppFile* = RECORD
  37.         vRefNum*:                INTEGER;
  38.         fType*:                    Types.OSType;
  39.         versNum*:                INTEGER;                                (*versNum in high byte*)
  40.         fName*:                    Types.Str255;
  41.     END;
  42.  
  43. (*
  44.     Because PowerPC applications don’t have segments,
  45.     UnloadSeg is unsupported for PowerPC.
  46. *)
  47. (*$IF GENERATING68K *)
  48.  
  49. PROCEDURE UnloadSeg*(routineAddr: (*ΔΔUNIVΔΔ*) Types.Ptr);
  50.     (*$IF NOT GENERATINGCFM*)
  51.     INLINE PASCAL $A9F1;
  52.     (*$END*)
  53. (*$ELSE*)
  54. (*$END*)
  55. (*$IF NOT GENERATINGCFM *)
  56.  
  57. PROCEDURE CountAppFiles*(VAR message: INTEGER; VAR count: INTEGER);
  58.     EXTERNAL PASCAL;
  59. PROCEDURE GetAppFiles*(index: INTEGER; VAR theFile: AppFile);
  60.     EXTERNAL PASCAL;
  61. PROCEDURE ClrAppFiles*(index: INTEGER);
  62.     EXTERNAL PASCAL;
  63. PROCEDURE GetAppParms*(VAR apName: Types.Str255; VAR apRefNum: INTEGER; VAR apParam: Types.Handle);
  64.     (*$IF NOT GENERATINGCFM*)
  65.     INLINE PASCAL $A9F5;
  66.     (*$END*)
  67. (*$END*)
  68.  
  69. PROCEDURE ExitToShell*;
  70.     (*$IF NOT GENERATINGCFM*)
  71.     INLINE PASCAL $A9F4;
  72.     (*$END*)
  73.  
  74. (* $ALIGN RESET*)
  75. (* $POP*)
  76.  
  77.  END SegLoad.
  78.